home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / var / lib / dpkg / info / sudo.postinst < prev    next >
Text File  |  2009-06-22  |  2KB  |  67 lines
  1. #!/usr/bin/perl
  2.  
  3. # remove old link
  4.  
  5. unlink ("/etc/alternatives/sudo") if ( -l "/etc/alternatives/sudo");
  6.  
  7. # make sure we have a sudoers file
  8. if ( ! -f "/etc/sudoers") {
  9.  
  10.     print "No /etc/sudoers found... creating one for you.\n";
  11.  
  12.     open (SUDOERS, "> /etc/sudoers");
  13.     print SUDOERS "# /etc/sudoers\n",
  14.       "#\n",
  15.       "# This file MUST be edited with the 'visudo' command as root.\n",
  16.       "#\n",
  17.       "# See the man page for details on how to write a sudoers file.\n",
  18.       "#\n\nDefaults\tenv_reset\n\n",
  19.       "# Host alias specification\n\n",
  20.       "# User alias specification\n\n",
  21.       "# Cmnd alias specification\n\n",
  22.       "# User privilege specification\nroot\tALL=(ALL) ALL\n\n",
  23.       "# Uncomment to allow members of group sudo to not need a password\n",
  24.       "# (Note that later entries override this, so you might need to move\n",
  25.           "# it further down)\n",
  26.       "# %sudo ALL=NOPASSWD: ALL\n";
  27.     close SUDOERS;
  28.  
  29. }
  30.  
  31. # make sure sudoers has the correct permissions and owner/group
  32. system ('chown root:root /etc/sudoers');
  33. system ('chmod 440 /etc/sudoers');
  34.  
  35. # must do a remove first to un-do the "bad" links created by previous version
  36. system ('update-rc.d -f sudo remove >/dev/null 2>&1');
  37.  
  38. #system ('update-rc.d sudo start 75 S . >/dev/null');
  39.  
  40. # make sure we have a sudo group
  41.  
  42. exit 0 if getgrnam("sudo"); # we're finished if there is a group sudo
  43.  
  44. $gid = 27;                 # start searcg with gid 27
  45. setgrent;
  46. while (getgrgid($gid)) {
  47.     ++$gid;
  48. }
  49. endgrent;
  50.  
  51. if ($gid != 27) {
  52.     print "On Debian we normally use gid 27 for 'sudo'.\n";
  53.     $gname = getgrgid(27);
  54.     print "However, on your system gid 27 is group '$gname'.\n\n";
  55.     print "Would you like me to stop configuring sudo so that you can change this? [n] "; 
  56.     $ans = <STDIN>;
  57.         if ($ans =~ m/^[yY].*/) {
  58.         print "'dpkg --pending --configure' will restart the configuration.\n\n\n";
  59.         exit 1;
  60.     }
  61. }
  62.  
  63. print "Creating group 'sudo' with gid = $gid\n";
  64. system("groupadd -g $gid sudo");
  65.  
  66. print "";
  67.